﻿Public Class ConsultarPuesto

    Dim codigoPuesto As Integer

    Public Sub New(ByVal P_codigo As String)
        InitializeComponent()
        codigoPuesto = CType(P_codigo, Integer)
        cargarDatos()
    End Sub

    Private Sub cargarDatos()
        Dim objPuesto As Hashtable
        objPuesto = Logica.Gestor.obtenerPuesto(codigoPuesto)
        lblDepartamento.Text = Logica.Gestor.obtenerNombreDepartamentoPorCodigoNivel(objPuesto("nivel"))
        lblNivel.Text = CStr(Logica.Gestor.obtenerNivelPorCodigoNivel(objPuesto("nivel")))
        lblDescripcion.Text = objPuesto("descripcion")
        lblTipoSalario.Text = Logica.Gestor.obtenerCodigoTipoSalario(objPuesto("tipoSalario"))
        lblSalario.Text = objPuesto("salario")
        lblNombre.Text = objPuesto("nombre")
    End Sub
    Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
        Me.Close()
    End Sub

    Private Sub ConsultarPuesto_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class